home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side A).po / SYS.DEV.MAC.txt < prev   
Text File  |  1996-12-24  |  2KB  |  150 lines
  1.  MACRO
  2. &lab _BlockMove
  3. &lab ldx #$2B02
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _DrawChar
  8. &lab ldx #$A404
  9.  jsl $E10000
  10.  MEND
  11.  MACRO
  12. &lab _DrawString
  13. &lab ldx #$A504
  14.  jsl $E10000
  15.  MEND
  16.  MACRO
  17. &lab _GetPort
  18. &lab ldx #$1C04
  19.  jsl $E10000
  20.  MEND
  21.  MACRO
  22. &lab _MoveTo
  23. &lab ldx #$3A04
  24.  jsl $E10000
  25.  MEND
  26.  MACRO
  27. &lab _SetPort
  28. &lab ldx #$1B04
  29.  jsl $E10000
  30.  MEND
  31.  MACRO
  32. &lab _StringWidth
  33. &lab ldx #$A904
  34.  jsl $E10000
  35.  MEND
  36.  MACRO
  37. &lab _BeginUpdate
  38. &lab ldx #$1E0E
  39.  jsl $E10000
  40.  MEND
  41.  MACRO
  42. &lab _CloseWindow
  43. &lab ldx #$0B0E
  44.  jsl $E10000
  45.  MEND
  46.  MACRO
  47. &lab _EndUpdate
  48. &lab ldx #$1F0E
  49.  jsl $E10000
  50.  MEND
  51.  MACRO
  52. &lab _NewWindow
  53. &lab ldx #$090E
  54.  jsl $E10000
  55.  MEND
  56.  MACRO
  57. &lab _SetSysWindow
  58. &lab ldx #$4B0E
  59.  jsl $E10000
  60.  MEND
  61.  MACRO
  62. &lab pushlong &addr,&offset
  63. &lab ANOP
  64.  LCLC &C
  65.  LCLC &REST
  66. &C AMID &addr,1,1
  67.  AIF "&C"="#",.immediate
  68.  AIF "&C"="[",.zeropage
  69.  AIF C:&offset=0,.nooffset
  70.  AIF "&offset"="s",.stack
  71.  pushword &addr+2,&offset
  72.  pushword &addr,&offset
  73.  MEXIT
  74. .nooffset
  75.  pushword &addr+2
  76.  pushword &addr
  77.  MEXIT
  78. .immediate
  79. &REST AMID &addr,2,L:&addr-1
  80.  dc I1'$F4',I2'(&REST)|-16'
  81.  dc I1'$F4',I2'&REST'
  82.  MEXIT
  83. .stack
  84.  pushword &addr+2,s
  85.  pushword &addr+2,s
  86.  MEXIT
  87. .zeropage
  88.  ldy #&offset+2
  89.  pushword &addr,y
  90.  ldy #&offset
  91.  pushword &addr,y
  92.  MEND
  93.  MACRO
  94. &lab pushword &SYSOPR
  95. &lab ANOP
  96.  AIF C:&SYSOPR=0,.b
  97.  LCLC &C
  98. &C AMID "&SYSOPR",1,1
  99.  AIF ("&C"="#").AND.(S:LONGA),.immediate
  100.  lda &SYSOPR
  101.  pha
  102.  MEXIT
  103. .b
  104.  pha
  105.  MEXIT
  106. .immediate
  107.  LCLC &REST
  108.  LCLA &BL
  109. &BL ASEARCH "&SYSOPR"," ",1
  110.  AIF &BL>0,.a
  111. &BL SETA L:&SYSOPR+1
  112. .a
  113. &REST AMID "&SYSOPR",2,&BL-2
  114.  dc I1'$F4',I2'&REST'
  115.  MEND
  116.  MACRO
  117. &lab str &string
  118. &lab dc i1'L:&string',C'&string'
  119.  MEND
  120.  MACRO
  121. &lab longm
  122. &lab ANOP
  123.  rep #%00100000
  124.  longa on
  125.  MEND
  126.  MACRO
  127. &lab shortm
  128. &lab ANOP
  129.  sep #%00100000
  130.  longa off
  131.  MEND
  132.  MACRO
  133. &lab _DInfoGS ¶ms
  134. &lab jsl $E100A8
  135.  dc i2"$202C"
  136.  dc i4"¶ms"
  137.  MEND
  138.  MACRO
  139. &lab _GetPrefixGS ¶ms
  140. &lab jsl $E100A8
  141.  dc i2"$200A"
  142.  dc i4"¶ms"
  143.  MEND
  144.  MACRO
  145. &lab _VolumeGS ¶ms
  146. &lab jsl $E100A8
  147.  dc i2"$2008"
  148.  dc i4"¶ms"
  149.  MEND
  150.